{
  ============================================================================
  Akeeba Remote Control
  A GUI for the Akeeba Backup JSON API
  Copyright (C)2008-2010 Nicholas K. Dionysopoulos / Akeeba Developers

  Akeeba Remote Control is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  ============================================================================
}

unit usiteeditor;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, ExtendedNotebook, DividerBevel;

type

  { TfrmSiteEditor }

  TfrmSiteEditor = class(TForm)
     btnCancel: TBitBtn;
     btnSave: TBitBtn;
     DividerBevel1: TDividerBevel;
     DividerBevel2: TDividerBevel;
     DividerBevel3: TDividerBevel;
     DividerBevel4: TDividerBevel;
     DividerBevel5: TDividerBevel;
     DividerBevel6: TDividerBevel;
     edtJoomlaUsername: TLabeledEdit;
     edtBackupDestinationFolder: TLabeledEdit;
     edtHTTPProxyServerPassword: TLabeledEdit;
     edtHTTPProxyServerHost: TLabeledEdit;
     edtHTTPProxyServerUsername: TLabeledEdit;
     edtFTPProxyServerHost: TLabeledEdit;
     edtFTPProxyServerUsername: TLabeledEdit;
     edtFTPProxyServerPassword: TLabeledEdit;
     LabeledEdit2: TLabeledEdit;
     edtJoomlaPassword: TLabeledEdit;
     edtRPCURL: TLabeledEdit;
     edtSiteName: TLabeledEdit;
     edtFTPPassword: TLabeledEdit;
     edtFTPPathToBackupOutput: TLabeledEdit;
     edtFTPUsername: TLabeledEdit;
     edtFTPHost: TLabeledEdit;
     Page1: TPage;
     Page2: TPage;
     Page3: TPage;
     SiteEditorNotebook: TExtendedNotebook;
     Page0: TPage;
     procedure btnCancelClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  frmSiteEditor: TfrmSiteEditor;

implementation

{ TfrmSiteEditor }

procedure TfrmSiteEditor.FormShow(Sender: TObject);
begin
   frmSiteEditor.Caption := frmSiteEditor.Caption + ' - ' + '[title of active site]';
   SiteEditorNotebook.ActivePageComponent := Page0;;
end;

procedure TfrmSiteEditor.btnCancelClick(Sender: TObject);
begin
   Close;
end;

initialization
  {$I usiteeditor.lrs}

end.

